10 IFX=0THENX=1:GOSUB260: LOAD"UNPACKER",8,1 20 IFX=1THENX=2:LOAD"PIXEL.SHPS",8,1 30 POKE249,224:POKE250,204: REM SCREEN/COLOR 40 POKE251,0:POKE252,64: REM SHP BUFFER 50 POKE253,0:POKE254,0: REM X-POS,Y-POS 60 PRINT"[145][145] [208]RESS SPACE BAR TO VIEW PIXEL PAGE." 70 PRINT" [208]RESS IT AGAIN TO RETURN TO LOADSTAR." 80 WAIT198,1:POKE198,0 90 : 100 S=54272:FORI=0TO24:POKES+I,0:NEXT 110 POKES+5,240:POKES+6,253:POKES,0:POKES+1,4:POKES+23,241:POKES+24,31 120 POKES+4,129 130 : 140 POKE255,0:SYS51462: REM UNPACK FULL SCREEN 150 : 160 SYS51459: REM SHOW SCREEN 170 POKE53265,PEEK(53265)OR32: POKE53270,PEEK(53270)OR16:POKE198,0 180 SH=2:D=RND(1)*100:FORDL=1TOD:IFPEEK(198)=0THENNEXT 190 IFPEEK(198)=0THENPOKE253,3:POKE254,1:POKE255,SH:SYS51462 195 IFSH=2THENSH=1:D=RND(1)*100:FORDL=1TO100:IFPEEK(198)=0THENNEXT:GOTO190 200 IFPEEK(198)=0THEN180 210 SYS51459 220 : 230 FORV=15TO0:POKES+24,V:NEXT 231 PRINT"[147]":POKE53281,0:POKE53280,0 232 PRINT" [211]HREVEPORT IS LOCATED IN THE NORTH-" 233 PRINT" WEST CORNER OF [204]OUISIANA." 234 PRINT"[212]HE POPULATION IS APPROXIMATELY 350,000." 235 PRINT" <[208]RESS A KEY TO RETURN TO [204][207][193][196][211][212][193][210]>":POKE198,0:WAIT198,1 240 PRINT""SPC(9)"[210]ETURNING TO [204][207][193][196][211][212][193][210]...." 250 POKE40961,23:LOAD"HELLO CONNECT",8:END 260 REM MAIN SCREEN 270 POKE53280,0:POKE53281,0:PRINT"[147]"CHR$(8) 280 PRINTSPC(13)"[158][204][207][193][196][211][212][193][210] #23" 290 PRINT""SPC(14)"[208]IXEL[160][208]AGE" 300 PRINT:PRINT:PRINT 310 PRINT 320 PRINT"[158] [205]OMMY, WHERE DO THEY LIVE?" 330 PRINT 340 PRINT" [215]ELL DEAR, [201] REALLY DON'T KNOW!":PRINT 342 PRINT" ([200]MMM...)" 350 PRINT"[154] [195]OVER DESIGNED BY [211]TEPHEN [199]ROSS USING" 360 PRINTSPC(12)"THE [203]OALA PAD." 370 PRINT"[156] [204]OADING PICTURE...PLEASE WAIT." 380 RETURN